kohonen_pattern_destroy Subroutine

public subroutine kohonen_pattern_destroy(current_pattern)

Kohonen pattern destructor

Type Bound

kohonen_pattern

Arguments

Type IntentOptional Attributes Name
class(kohonen_pattern) :: current_pattern

A kohonen_pattern object

Calls

proc~~kohonen_pattern_destroy~~CallsGraph proc~kohonen_pattern_destroy kohonen_pattern%kohonen_pattern_destroy none~destroy~9 kohonen_prototype%destroy proc~kohonen_pattern_destroy->none~destroy~9

Called by

proc~~kohonen_pattern_destroy~~CalledByGraph proc~kohonen_pattern_destroy kohonen_pattern%kohonen_pattern_destroy proc~release_variables release_variables proc~release_variables->proc~kohonen_pattern_destroy proc~release_variables~3 release_variables proc~release_variables~3->proc~kohonen_pattern_destroy proc~train_som train_som proc~train_som->proc~kohonen_pattern_destroy proc~train_two_level_som train_two_level_som proc~train_two_level_som->proc~kohonen_pattern_destroy

Source Code

   subroutine kohonen_pattern_destroy(current_pattern)
!========================================================================================
!!   Kohonen pattern destructor
      class(kohonen_pattern) :: current_pattern
!! A `kohonen_pattern` object
      call current_pattern%pattern%destroy();
!   
   end subroutine kohonen_pattern_destroy